home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / lotus / lotus022.dsk / SURFNET.MPR / SCRIPT / ApproachDoc / Setup / Body / btnInstallWebster.s (.txt) < prev    next >
Encoding:
Null Bytes Alternating  |  1995-11-13  |  7.0 KB  |  98 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5.  
  6. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7.  
  8. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9. Private Sub BindEvents(Byval Objectname_ As String)
  10.     Static Source As BUTTON
  11.     Set Source = Bind(Objectname_)
  12.     On Event Click From Source Call Click
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Click:1:12
  16. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  17.     Dim rval As Integer   'Return value
  18.     Dim strCDDrive As String   'CD drive letter
  19.     Dim strCDDir As String   'CD directory
  20.     Dim strAPCDDir As String   'Approach 96 CD directory
  21.     Dim strSTCDDir As String   'SmartSuite 96 CD directory
  22.     Dim strCurDrive As String   'Current drive letter
  23.     Dim strCurDir As String   'Current directory
  24.     
  25.     'Initializations
  26.     rval = 1
  27.     strCDDrive = ""
  28.     strAPCDDir = "\APPRCH96\EXTRA\OCX\WEBSTER\"
  29.     strSTCDDir = "\EXTRA\OCX\WEBSTER\"
  30.     strCurDrive = ""
  31.     strCurDir = ""
  32.     strCDDir = strAPCDDir 'Start by assuming an Approach CD Installation.
  33.     
  34.     On Error 68 Goto WrongDrive   'Error # for changing to invalid drive.
  35.     On Error 76 Goto WrongDir   'Error # for changing to invalid directory.
  36.     
  37.     rval = Messagebox(|The Webster browser ships with the CD-ROM versions of Approach 96 and SmartSuite 96.  
  38. Please verify the CD-ROM is in the drive before proceeding.|, 1, "Webster install")
  39.     If (rval = 1) Then   'User hit OK.
  40.         strCurDrive = Curdrive   'Get the current drive letter.
  41.         strCurDir = Curdir   'Get the current directory.
  42. GetInfo:
  43.         strCDDrive = Inputbox("Enter your CD drive letter (e.g. D)", "Webster install", "D", 150, 150)
  44.         If(strCDDrive <> "") Then
  45. ChangeDir:            
  46.             Chdrive strCDDrive
  47.             Chdir strCDDir
  48.             rval = Shell("SETUP.EXE", 1)
  49.             Chdrive strCurDrive   'Change back to the original drive.
  50.             Chdir strCurDir   'Change back to the original directory.
  51.             rval = 1
  52.             rval = Messagebox("Click OK when your done installing the Webster browser..", 0, "Webster install")
  53.             If (rval = 1) Then   'User hit OK.
  54.                 'Now we need to close the .APR and open it again.
  55.                 rval = 1
  56.                 rval = Messagebox("Click OK to close the Surfnet application.  When you open it again, you will be able to use the Webster browser.  If you choose Cancel, you won't be able to use the browser until you close Surfnet and open it again..", 1, "Webster install")
  57.                 If (rval = 1) Then
  58.                     CurrentDocument.Window.Close
  59.                 End If
  60.             End If
  61.             Goto EndInstall
  62.         End If
  63.         Goto EndInstall
  64.     Else
  65.         Goto EndInstall
  66.     End If
  67.     
  68.     
  69. 'If the user entered an invalid drive letter.
  70. WrongDrive:
  71.     rval = 1
  72.     rval = Messagebox("Drive " & strCDDrive & " is invalid.  Please enter a valid drive letter.", 1, "Webster Install")
  73.     If (rval = 1) Then   'User hit ok.
  74.         Resume GetInfo
  75.     Else
  76.         Resume EndInstall
  77.     End If
  78.     
  79.     
  80. 'If the    user entered a drive letter, but not the CDdrive letter.
  81. WrongDir:
  82.     rval = 1
  83.     If(strCDDir = strSTCDDir) Then 'check to see if we've been here before
  84.         rval = Messagebox("Drive " & strCDDrive & " is not the CD-ROM drive or the Approach or SmarSuite CD-ROM is not in the drive.  Retry?", 1, "Webster Install")
  85.         If (rval = 1) Then   'User hit ok.
  86.             strCDDir = strAPCDDir 'if the user wants another try, set the CD Directory back to Approach CD
  87.             Resume GetInfo
  88.         Else
  89.             Resume EndInstall
  90.         End If
  91.     Else
  92.         strCDDir = strSTCDDir 'if we couldn't find the Approach CD directory, try the SmartSuite CD directory
  93.         Resume ChangeDir
  94.     End If        
  95.     
  96. EndInstall:    
  97.     
  98. End Sub